/*

	menu.prg
	Menu Principal del juego
	
*/

GLOBAL

	menu_opcion = 1;
	
	menu_ended = FALSE;

END

//---------------------------------------------------------------------------------------
PROCESS iniciarMenu()
//
// inicia y controla menu principal del juego
//

PRIVATE

END

BEGIN

	print("INICIAR MENU");

	file = fpg_menu;
	
	menu_textos();
	
	put(fpg_menu, 3, SCREEN_X /2, SCREEN_Y /2);
	put(fpg_intro, 1, SCREEN_X /2, SCREEN_Y /2 - 100);

	LOOP
	
		frame;
		
	END

END

//---------------------------------------------------------------------------------------
PROCESS menu_textos()
//
// muestra los textos del menu
//

PRIVATE
	bloqueo;
END

BEGIN

	file = father.file;
	graph = 1;
	
	x = SCREEN_X /2;
	y = SCREEN_Y /2 + 150;

	LOOP
	
	
		// cambia la opcion seleccionada
		IF ( ( key ( _down ) OR key ( _up ) ) and bloqueo == FALSE)
		
			bloqueo = TRUE;
		
			IF ( menu_opcion == 1 )
				menu_opcion = 2;
			ELSE
				menu_opcion = 1;
			END
			
		END
		
		IF ( NOT key ( _down ) AND NOT key ( _up ) AND bloqueo )
			bloqueo = FALSE;
		END
		
		graph = menu_opcion;
		
		// selecciona la opcion
		IF ( key ( _enter ) AND NOT bloqueo )
		
			menu_ended = TRUE;
		
		END
		
		
	
		frame;
		
	END

END

